home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Bavarian / Bavarian #197 (19xx)(APS Electronic).zip / Bavarian #197 (19xx)(APS Electronic).adf / test.f < prev    next >
Text File  |  1989-01-11  |  980b  |  38 lines
  1.       program matmul
  2. c siehe RUS BI 3/88 (Rechenzentrum Uni Stuttgart)
  3. c dort sind Rechenzeiten fr ber 20 Rechner aufgelistet
  4. c z.B. PC/AT02+80287 fr n=100: 133 Sec. REAL, 454 Sec.(!) DOUBLE PRECISION
  5. c mit Option deBugcode=aus ergibt sich REAL 123, DOUBLE PRECISION 199 Sec.
  6.       parameter(n=8)
  7.       dimension f1(n,n),  f2(n,n),  f3(n,n)
  8. c      REAL f1,f2,f3,a,s,p23,p19,p12,p0
  9.       DOUBLE PRECISION f1,f2,f3,a,s,p23,p19,p12,p0
  10.       parameter(p23=2.3,p19=1.9,p12=1.2,p0=0)
  11. c      CALL BCFOSD
  12.        print *,'Matrixmultiplikation, n=',n
  13.         a=p12
  14.         do 1 i=1,n
  15.          do 2 j=1,n
  16.           f1(j,i)=a
  17.           a=a+p23
  18.  2       continue
  19.  1      continue
  20.         do 11 i=1,n
  21.          do 12 j=1,n
  22.           f2(j,i)=a
  23.           a=a+p19
  24.  12      continue
  25.  11     continue
  26.         do 3 i=1,n
  27.         do 3 j=1,n
  28.          s=p0
  29.          do 4 k=1,n
  30.  4        s=s+f1(i,k)*f2(k,j)
  31.         f3(i,j)=s
  32.  3      continue
  33.         write(*,'(f30.14)')f3(n,n)
  34.         stop
  35.         end
  36.  
  37.  
  38.